home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 01 New Uploads / NEVEND.SDA / HELLO CONNECT (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  31 lines
  1. 0 REM -- FILENAME: "EXIT".
  2. 10 CLR:Y=FRE(0):Z=FRE(0):IFY=ZTHENPRINT"[147][195]128 [208]ROGRAM [212]ERMINATED...":NEW
  3. 20 CLR:IFST<>64ANDST<>0THENPRINT"[147]";:SYS58792:PRINT"[154]STATUS =";ST:NEW
  4. 30 CLR:DN=PEEK(186):IFDN<8THENDN=8
  5. 40 POKE162,0:WAIT162,128
  6. 50 PRINT"[147]";:SYS58792:POKE53280,0:POKE53281,0:POKE646,5:POKE53265,0
  7. 60 CLOSE1:OPEN1,DN,15:CLOSE1:OPEN1,DN,15,"UJ":CLOSE1:OPEN1,DN,15,"I0":CLOSE1
  8. 70 DATA 169,000,133,251,169,008,133,252
  9. 80 DATA 169,000,168,145,251,200,196,251
  10. 90 DATA 208,249,230,252,169,250,197,252
  11. 100 DATA 208,238,032,226,252,096
  12. 110 RESTORE:CS=0:FORX=1TO30:READZ:CS=CS+Z:NEXTX:IFCS<>5354THEN260
  13. 120 RESTORE:FORX=828TO857:READZ:POKEX,Z:NEXTX:PRINT"[147]"+CHR$(142):POKE214,7
  14. 130 PRINT:PRINTTAB(9);"    [164][164][164][164]             [164][164]"
  15. 140 PRINTTAB(9);"   [206] [164][164] [205][164][164]  [164][164][164][164][164]  [206] [206]"
  16. 150 PRINTTAB(9);"  [206] [164][164]  [206] [206] [206] [206] [164] [205][206] [206]"
  17. 160 PRINTTAB(9);" [206] [170][164][206] [206] [170][164][206] [206]  [164][164][206][164][206]"
  18. 170 PRINTTAB(9);"[170][164][164][164][164][164][206][205][164][164]  [206][205][164][164][164]([164])"
  19. 180 PRINTTAB(9);"      [167][164][164][164][164][206]"
  20. 190 PRINT:PRINT:PRINTTAB(8);"[158]--= EXITING TO BASIC =--":POKE53265,27
  21. 200 POKE162,0:WAIT162,128:POKE162,0:CLOSE1:OPEN1,DN,15:CLOSE1
  22. 210 OPEN1,DN,15,"UJ":INPUT#1,N$,E$,T$,S$:CLOSE1:IFE$<>"CMD RD DOS V1.40"THEN230
  23. 220 DN=9:CLOSE1:OPEN1,8,15,"S-D":POKE162,0:WAIT162,128:CLOSE1
  24. 230 CLOSE1:OPEN1,DN,15,"U0>M0":CLOSE1:OPEN1,DN,15,"I0":CLOSE1
  25. 240 CLR:POKE162,0:WAIT162,128:SYS828
  26. 250 STOP
  27. 260 SYS58792:PRINT"[147][150]DATA STATEMENT ERROR![154]":PRINT"CHECKSUM SHOULD BE 5354;"
  28. 270 PRINT"CHECKSUM REALLY IS";CS:PRINT:PRINT"[150]ABORTED![154]";:CLR:POKE198,0:END
  29. 280 STOP
  30. 290 END
  31.